home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / WebcamViewer.dxpack / {AA6BC6E8-F3A1-4C47-B43C-707516E1CA8B}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-05-19  |  1KB  |  56 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim fadedir
  5. Dim newop
  6.  
  7. 'Called when the script is executed
  8. Sub Object_OnScriptEnter
  9. newop = 50
  10. Object.Opacity = newop
  11. End Sub
  12.  
  13. 'Called when the script is terminated
  14. Sub Object_OnScriptExit
  15.  
  16. End Sub
  17.  
  18. Sub Object_OnTimer123
  19. If fadedir = 1 Then
  20.     newop = newop - 1
  21.     If newop > 50 And newop <= 100 Then
  22.         Object.Opacity = newop
  23.     ElseIf newop <= 50 Then
  24.         newop = 50
  25.         Object.Opacity = 50
  26.         Object.KillTimer 123
  27.     End If
  28. Else
  29.     newop = newop + 7
  30.     If newop < 100 Then
  31.         Object.Opacity = newop
  32.     Else
  33.         newop = 100
  34.         Object.Opacity = 100
  35.         Object.KillTimer 123
  36.     End If
  37. End If
  38.  
  39. End Sub
  40.  
  41.  
  42. Sub Object_OnMouseEnter
  43. fadedir = 0
  44. Object.SetTimer 123, 20
  45. 'newop = 50
  46. 'Object.Opacity = 50
  47. End Sub
  48.  
  49. Sub Object_OnMouseLeave
  50. fadedir = 1
  51. If newop=100 Then newop = 200
  52. Object.SetTimer 123, 20
  53. 'Object.Opacity = 50
  54. End Sub
  55. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>280</EditorLeft><EditorTop>278</EditorTop><EditorRight>1154</EditorRight><EditorBottom>906</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  56.